Developer CD Series 1995 February: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Dialogs.a < prev next >

Wrap

Text File | 1994-11-11 | 6.3 KB | 374 lines | [TEXT/MPS ]

; ; File: Dialogs.a ; ; Copyright: © 1984-1994 by Apple Computer, Inc. ; All rights reserved. ; ; Version: Universal Interfaces 2.0a3 ETO #16, MPW prerelease. Friday, November 11, 1994. ; ; Bugs?: If you find a problem with this file, send the file and version ; information (from above) and the problem description to: ; ; Internet: apple.bugs@applelink.apple.com ; AppleLink: APPLE.BUGS ; ; IF &TYPE('__DIALOGS__') = 'UNDEFINED' THEN __DIALOGS__ SET 1 IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN include 'Errors.a' ENDIF ; include 'ConditionalMacros.a' ; IF &TYPE('__MEMORY__') = 'UNDEFINED' THEN include 'Memory.a' ENDIF ; include 'Types.a' ; ; include 'MixedMode.a' ; IF &TYPE('__WINDOWS__') = 'UNDEFINED' THEN include 'Windows.a' ENDIF ; include 'Quickdraw.a' ; ; include 'QuickdrawText.a' ; ; include 'Events.a' ; ; include 'OSUtils.a' ; ; include 'Controls.a' ; ; include 'Menus.a' ; IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN include 'TextEdit.a' ENDIF ctrlItem EQU 4 btnCtrl EQU 0 chkCtrl EQU 1 radCtrl EQU 2 resCtrl EQU 3 statText EQU 8 editText EQU 16 iconItem EQU 32 picItem EQU 64 userItem EQU 0 itemDisable EQU 128 ok EQU 1 cancel EQU 2 stopIcon EQU 0 noteIcon EQU 1 cautionIcon EQU 2 ; new, more standard names for dialog item constants kControlDialogItem EQU ctrlItem kButtonDialogItem EQU btnCtrl kCheckBoxDialogITem EQU chkCtrl kRadioButtonDialogItem EQU radCtrl kResourceControlDialogItem EQU resCtrl kStaticTextDialogItem EQU statText kEditTextDialogItem EQU editText kIconDialogItem EQU iconItem kPictureDialogItem EQU picItem kUserDialogItem EQU userItem kIDODialogItem EQU 24 kItemDisableBit EQU itemDisable kOkItemIndex EQU ok kCancelItemIndex EQU cancel kStopIcon EQU stopIcon kNoteIcon EQU noteIcon kCautionIcon EQU cautionIcon overlayDITL EQU 0 appendDITLRight EQU 1 appendDITLBottom EQU 2 IF STRICT_WINDOWS THEN ELSE ENDIF IF ¬ STRICT_WINDOWS THEN DialogRecord RECORD 0 window ds WindowRecord items ds.l 1 textH ds.l 1 editField ds.w 1 editOpen ds.w 1 aDefItem ds.w 1 sizeof EQU 170 ENDR ENDIF DialogTemplate RECORD 0 boundsRect ds Rect procID ds.w 1 visible ds.b 1 filler1 ds.b 1 goAwayFlag ds.b 1 filler2 ds.b 1 refCon ds.l 1 itemsID ds.w 1 title ds.l 64 sizeof EQU 276 ENDR AlertTemplate RECORD 0 boundsRect ds Rect itemsID ds.w 1 stages ds.w 1 sizeof EQU 12 ENDR SelectionRange RECORD 0 beginSelection ds.w 1 endSelection ds.w 1 sizeof EQU 4 ENDR IF GENERATING68K THEN _InitDialogs: OPWORD $A97B ELSE IMPORT InitDialogs ENDIF IF GENERATING68K THEN _ErrorSound: OPWORD $A98C ELSE IMPORT ErrorSound ENDIF IF GENERATING68K THEN _NewDialog: OPWORD $A97D ELSE IMPORT NewDialog ENDIF IF GENERATING68K THEN _GetNewDialog: OPWORD $A97C ELSE IMPORT GetNewDialog ENDIF IF GENERATING68K THEN _CloseDialog: OPWORD $A982 ELSE IMPORT CloseDialog ENDIF IF GENERATING68K THEN _DisposeDialog: OPWORD $A983 ELSE IMPORT DisposeDialog ENDIF IF GENERATING68K THEN _ParamText: OPWORD $A98B ELSE IMPORT ParamText ENDIF IF GENERATING68K THEN _ModalDialog: OPWORD $A991 ELSE IMPORT ModalDialog ENDIF IF GENERATING68K THEN _IsDialogEvent: OPWORD $A97F ELSE IMPORT IsDialogEvent ENDIF IF GENERATING68K THEN _DialogSelect: OPWORD $A980 ELSE IMPORT DialogSelect ENDIF IF GENERATING68K THEN _DrawDialog: OPWORD $A981 ELSE IMPORT DrawDialog ENDIF IF GENERATING68K THEN _UpdateDialog: OPWORD $A978 ELSE IMPORT UpdateDialog ENDIF IF GENERATING68K THEN _Alert: OPWORD $A985 ELSE IMPORT Alert ENDIF IF GENERATING68K THEN _StopAlert: OPWORD $A986 ELSE IMPORT StopAlert ENDIF IF GENERATING68K THEN _NoteAlert: OPWORD $A987 ELSE IMPORT NoteAlert ENDIF IF GENERATING68K THEN _CautionAlert: OPWORD $A988 ELSE IMPORT CautionAlert ENDIF IF GENERATING68K THEN _GetDialogItem: OPWORD $A98D ELSE IMPORT GetDialogItem ENDIF IF GENERATING68K THEN _SetDialogItem: OPWORD $A98E ELSE IMPORT SetDialogItem ENDIF IF GENERATING68K THEN _HideDialogItem: OPWORD $A827 ELSE IMPORT HideDialogItem ENDIF IF GENERATING68K THEN _ShowDialogItem: OPWORD $A828 ELSE IMPORT ShowDialogItem ENDIF IF GENERATING68K THEN _SelectDialogItemText: OPWORD $A97E ELSE IMPORT SelectDialogItemText ENDIF IF GENERATING68K THEN _GetDialogItemText: OPWORD $A990 ELSE IMPORT GetDialogItemText ENDIF IF GENERATING68K THEN _SetDialogItemText: OPWORD $A98F ELSE IMPORT SetDialogItemText ENDIF IF GENERATING68K THEN _FindDialogItem: OPWORD $A984 ELSE IMPORT FindDialogItem ENDIF IF GENERATING68K THEN _NewColorDialog: OPWORD $AA4B ELSE IMPORT NewColorDialog ENDIF IF GENERATING68K THEN Macro GetAlertStage move.W $0A9A,(sp) EndM ELSE IMPORT GetAlertStage ENDIF IF GENERATING68K THEN Macro _ResetAlertStage dc.w $4278 dc.w $0A9A EndM ELSE IMPORT ResetAlertStage ENDIF IF GENERATING68K THEN Macro SetDialogFont move.W (sp)+,$0AFA EndM ELSE IMPORT SetDialogFont ENDIF IF GENERATING68K THEN Macro _GetStdFilterProc move.w #$0203,d0 dc.w $AA68 EndM ELSE IMPORT GetStdFilterProc ENDIF IF GENERATING68K THEN Macro _SetDialogDefaultItem move.w #$0304,d0 dc.w $AA68 EndM ELSE IMPORT SetDialogDefaultItem ENDIF IF GENERATING68K THEN Macro _SetDialogCancelItem move.w #$0305,d0 dc.w $AA68 EndM ELSE IMPORT SetDialogCancelItem ENDIF IF GENERATING68K THEN Macro _SetDialogTracksCursor move.w #$0306,d0 dc.w $AA68 EndM ELSE IMPORT SetDialogTracksCursor ENDIF IF OLDROUTINENAMES THEN IF ¬ GENERATINGCFM THEN IF GENERATING68K THEN _CouldDialog: OPWORD $A979 ELSE IMPORT CouldDialog ENDIF IF GENERATING68K THEN _FreeDialog: OPWORD $A97A ELSE IMPORT FreeDialog ENDIF IF GENERATING68K THEN _CouldAlert: OPWORD $A989 ELSE IMPORT CouldAlert ENDIF IF GENERATING68K THEN _FreeAlert: OPWORD $A98A ELSE IMPORT FreeAlert ENDIF ENDIF ENDIF ENDIF ; __DIALOGS__